home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1994 June: Reference Library / Dev.CD Jun 94.toast / Periodicals / develop / develop Issue 18 / develop 18 code / OSA Sample / Sources / ObjModelTokens.cp < prev    next >
Encoding:
Text File  |  1994-01-28  |  18.9 KB  |  826 lines  |  [TEXT/MPS ]
  1. /*
  2.     File:        ObjModelTokens.cp
  3.  
  4.     Contains:    Token classes implementation
  5.  
  6.     Developed by:    
  7.         
  8.         Paul G Smith (commstalk hq & Full Moon Software, Inc)
  9.         
  10.         you can leave messages at (UK): 0727 844232; (US): 408 253 7199
  11.         BUT I prefer to be contacted by e-mail
  12.         AppleLink:     SMITH.PG
  13.         Internet:     SMITH.PG@applelink.apple.com
  14.         
  15.         "SimpliFace" Sample code to accompany develop article
  16.         on techniques for embedding scripts in applications.
  17.  
  18.  
  19.     Apple Event Object Model tokens for SimpliFace
  20.  
  21. */
  22.  
  23.  
  24. #ifndef __MENUS__
  25. #include <Menus.h>
  26. #endif
  27. #ifndef __EVENTS__
  28. #include <Events.h>
  29. #endif
  30. #ifndef __WINDOWS__
  31. #include <Windows.h>
  32. #endif
  33. #ifndef __DIALOGS__
  34. #include <Dialogs.h>
  35. #endif
  36. #ifndef __QUICKDRAW__
  37. #include <Quickdraw.h>
  38. #endif
  39. #ifndef __MEMORY__
  40. #include <Memory.h>
  41. #endif
  42. #ifndef __FILES__
  43. #include <Files.h>
  44. #endif
  45. #ifndef __STANDARDFILE__
  46. #include <StandardFile.h>
  47. #endif
  48. #ifndef __SYSEQU__
  49. #include <SysEqu.h>
  50. #endif
  51. #ifndef __PLSTRINGFUNCS__
  52. #include <PLStringFuncs.h>
  53. #endif
  54.  
  55. #ifndef __AERegistry__
  56. #include <AERegistry.h>
  57. #endif
  58. #ifndef __ASREGISTRY__
  59. #include <ASRegistry.h>
  60. #endif
  61. #ifndef __APPLEEVENTS__
  62. #include <AppleEvents.h>
  63. #endif
  64. #ifndef __AEOBJECTS__
  65. #include <AEObjects.h>
  66. #endif
  67.  
  68. #ifndef __AEOBJECTPACKING__
  69. #include <AEPackObject.h>
  70. #endif
  71.  
  72. #ifndef __AEOMTOKENS__
  73. #include "ObjModelTokens.h"
  74. #endif
  75.  
  76. #ifndef __AEOMEVENTS__
  77. #include "ObjModelEvents.h"
  78. #endif
  79.  
  80. #ifndef __SCRIPTUTILS__
  81. #include "ScriptUtils.h"
  82. #endif
  83.  
  84.  
  85.  
  86. #pragma segment ObjectAccessors
  87.  
  88.  
  89.  
  90. // ------------
  91.  
  92.  
  93. // ------------
  94.  
  95. #pragma trace off
  96.  
  97. // utility routines
  98.  
  99. objModelTokenPtr ObjModelTokenFromDesc(AEDesc *theDesc)
  100. {
  101.     objModelTokenPtr    theToken = nil;
  102.     Size                actSize;
  103.     
  104.     if (theDesc->descriptorType == typeObjModelToken)
  105.         GetRawDataFromDescriptor(theDesc, (Ptr)&theToken, sizeof(theToken), &actSize);
  106.         
  107.     return theToken;
  108. }
  109.  
  110. OSErr DescFromObjModelToken(const objModelTokenPtr theToken, AEDesc *theDesc)
  111. {
  112.     return AECreateDesc(typeObjModelToken, (Ptr)&theToken, sizeof(theToken), theDesc);
  113. }
  114.  
  115.  
  116. // -------------------------------------------------------
  117.  
  118. #pragma segment ObjectAccessors
  119.  
  120. #pragma trace off
  121.  
  122.  
  123. TObjModelToken::TObjModelToken(void)
  124. {
  125.     fTokenClass = typeNull;
  126.     fIsProperty = false;
  127.     fPropertyID = typeNull;
  128.     fTheObject = NULL;
  129. }
  130.  
  131.  
  132. TObjModelToken::TObjModelToken(DescType theTokenClass,
  133.                                 TScriptableObject* theObj)
  134. {
  135.     fTokenClass = theTokenClass;
  136.     fIsProperty = false;
  137.     fPropertyID = typeNull;
  138.     fTheObject = theObj;
  139. }
  140.  
  141.  
  142. TObjModelToken::TObjModelToken(const TObjModelToken& oldObj)
  143. {
  144.     fTokenClass = oldObj.fTokenClass;
  145.     fIsProperty = oldObj.fIsProperty;
  146.     fPropertyID = oldObj.fPropertyID;
  147.     fTheObject = oldObj.fTheObject;
  148. }
  149.  
  150.  
  151. TObjModelToken& TObjModelToken::operator=(const TObjModelToken& oldObj)
  152. {
  153.     if (this != &oldObj)
  154.     {
  155.         fTokenClass = oldObj.fTokenClass;
  156.         fIsProperty = oldObj.fIsProperty;
  157.         fPropertyID = oldObj.fPropertyID;
  158.         fTheObject = oldObj.fTheObject;
  159.     }
  160.     return *this;
  161. }
  162.  
  163.  
  164. TObjModelToken::~TObjModelToken(void)
  165. {
  166.     // nothing to do!
  167. }
  168.  
  169.  
  170. TObjModelToken* TObjModelToken::MakeClone(void)
  171. { 
  172.     return new TObjModelToken(*this);
  173. }
  174.  
  175.  
  176. // support for object accessors
  177.  
  178.  
  179. TObjModelToken* TObjModelToken::MakeNewToken (DescType theTokenClass,
  180.                                             TScriptableObject* theObj)
  181. {
  182.     TObjModelToken    *resultToken = new TObjModelToken(theTokenClass, theObj);
  183.     
  184.     return resultToken;
  185. }
  186.  
  187.  
  188. OSErr TObjModelToken::ResolveElement(DescType desiredClass,
  189.                                     DescType keyForm,
  190.                                     AEDesc *keyData,
  191.                                     TObjModelToken **theResultToken)
  192. {
  193.     OSErr                 err = errAEEventNotHandled;
  194.     TScriptableObject     *theResultObj = NULL;
  195.     
  196.     // this function has been called because no derived class knows
  197.     // how to resolve the specified token
  198.     
  199.     // start by testing keyForm; 
  200.  
  201.     if (!fTheObject)    // can't do it if no object referenced!
  202.         return errAEEventNotHandled;
  203.     else if (keyForm == formName)
  204.     {
  205.         CStr255     nameStr = "";
  206.  
  207.         err = GetPStringFromDescriptor(keyData, (char *)&nameStr);
  208.         
  209.         if (!err)
  210.             err = fTheObject->ResolveElementByName(desiredClass, nameStr, 
  211.                                                     &theResultObj);
  212.     } 
  213.     else if (keyForm == formAbsolutePosition)
  214.     {
  215.         short       index;
  216.  
  217.         err = GetIntegerFromDescriptor(keyData, &index);
  218.         if (index < 0)
  219.         {
  220.             long numElems;
  221.             
  222.             if (fTheObject->CountElements(desiredClass, &numElems) == 0)
  223.                 index = numElems + index + 1;
  224.         }
  225.         
  226.         if (!err)
  227.             err = fTheObject->ResolveElementByIndex(desiredClass, index, 
  228.                                                     &theResultObj);
  229.     }
  230.     else
  231.         err = errAEBadKeyForm;
  232.         
  233.     if (!err)
  234.     {
  235.         *theResultToken = MakeNewToken(desiredClass, theResultObj);
  236.     }
  237.     return err;
  238. }
  239.                                     
  240. OSErr TObjModelToken::ResolveProperty(DescType desiredClass,
  241.                                     DescType keyForm,
  242.                                     AEDesc *keyData,
  243.                                     TObjModelToken **theResultToken)
  244. {
  245.     OSErr             err = errAEEventNotHandled;
  246.     DescType          theProperty;
  247.     Size              actualSize;
  248.     
  249.     if (keyForm == formPropertyID)
  250.     {
  251.         GetRawDataFromDescriptor(keyData, (Ptr)&theProperty,
  252.                                  sizeof(theProperty), &actualSize);
  253.         
  254.         fIsProperty = true;
  255.         fPropertyID = theProperty;
  256.         
  257.         // make clone of this token and return reference to 
  258.         // it in theResultToken (requires use of copy constructors)
  259.         
  260.         *theResultToken = this->MakeClone();
  261.         
  262.         if (*theResultToken)
  263.             err = noErr;
  264.     }
  265.     
  266.     return err;
  267. }
  268.  
  269.  
  270. OSErr TObjModelToken::CallDispatchAppleEvent(AppleEvent *theEvent, 
  271.                                     AppleEvent *theReply, 
  272.                                     AEEventClass theEvtClass,
  273.                                     AEEventID theEvtID)
  274. {
  275.     return this->DispatchAppleEvent(theEvent, theReply, theEvtClass, theEvtID);
  276. }
  277.  
  278.  
  279. OSErr TObjModelToken::DispatchAppleEvent(AppleEvent *theEvent, 
  280.                                     AppleEvent *theReply, 
  281.                                     AEEventClass theEvtClass,
  282.                                     AEEventID theEvtID)
  283. {
  284.     OSErr             err = errAEEventNotHandled;
  285.     
  286.     if (!fTheObject)    // can't do it if no object referenced!
  287.         return err;
  288.  
  289.     if (theEvtClass == kASAppleScriptSuite && theEvtID == kASSubroutineEvent)
  290.     {
  291.         //Trace("Received AS subroutine event (not handled)\n");
  292.     }
  293.     else if (theEvtClass == kAEMiscStandards && theEvtID == kAEDoScript)
  294.     {
  295.         //Trace("Received Do Script event (not handled)\n");
  296.     }
  297.     else if (theEvtClass == kAECoreSuite || theEvtClass == kCoreEventClass)
  298.     {
  299.         switch (theEvtID)
  300.         {
  301.         case kAECountElements:
  302.             err = this->AECountElems(theEvent, theReply);
  303.             break;
  304.         case kAECreateElement:
  305.             err = this->AECreateElem(theEvent, theReply);
  306.             break;
  307.         case kAEDelete:
  308.             err = this->AEDeleteElem(theEvent, theReply);
  309.             break;
  310.         case kAEClose:
  311.             err = this->AECloseObject(theEvent, theReply);
  312.             break;
  313.         case kAEGetData:
  314.             err = this->AEGetObjectData(theEvent, theReply);
  315.             break;
  316.         case kAEOpen:
  317.             err = this->AEOpenObject(theEvent, theReply);
  318.             break;
  319.         case kAESetData:
  320.             err = this->AESetObjectData(theEvent, theReply);
  321.             break;
  322.         }
  323.     }
  324.     return err;
  325. }
  326.                         
  327.  
  328. // hooks into Apple Event handling, only override for special-purposes;
  329. // return noErr if Apple Event was handled within the hook function, or 
  330. // errAEEventNotHandled if it was not handled within the hook function
  331.  
  332. OSErr TObjModelToken::AECountElems        (AppleEvent *theEvent, 
  333.                                         AppleEvent *theReply)
  334. {
  335.     OSErr                 err = errAEEventNotHandled;
  336.     AEDesc                resultDesc;
  337.     Size                theSize;
  338.     DescType            theType, desiredClass;
  339.     long                result;
  340.  
  341.     InitAEDescs(&resultDesc, kEndOfList);
  342.     
  343.     err = AEGetParamPtr(theEvent, keyAEObjectClass, typeType, &theType,
  344.                         (Ptr)&desiredClass, sizeof(DescType), &theSize);
  345.     
  346.     if (!err)
  347.         err = fTheObject->CountElements(desiredClass, &result);
  348.         
  349.     if (!err)
  350.         err = AECreateDesc(typeLongInteger, &result, sizeof(long), &resultDesc);
  351.         
  352.     if (!err && theReply->descriptorType != typeNull)
  353.         err = AEPutParamDesc(theReply, keyDirectObject, &resultDesc);
  354.     
  355.     DisposeAEDescs(&resultDesc, kEndOfList);
  356.     
  357.     return err;
  358. }
  359.  
  360. OSErr TObjModelToken::AECreateElem        (AppleEvent *theEvent, 
  361.                                         AppleEvent *theReply)
  362. {
  363.     //     get insertionloc
  364.     //        resolve insertion point
  365.     //     get desired object class
  366.     //  ask object at insertion point to create new object
  367.     //    get new object's data (optional param)
  368.     //        save data
  369.     //    get new object's properties record  (optional param)
  370.     //        save properties
  371.     //    ask new object to create it's own object specifier
  372.     //    return object specifier as result
  373.     OSErr                 err = errAEEventNotHandled;
  374.     AEDesc                resultDesc, dataObject;
  375.     AEDesc                insLocParam, insLocObject, theTokenDesc;
  376.     AERecord            insLocRec, dataPropParam;
  377.     TObjModelToken         *theToken = NULL;
  378.     Size                theSize;
  379.     DescType            theType, position;
  380.     DescType            theClass;
  381.     
  382.     InitAEDescs(&insLocParam, &insLocRec, &insLocObject, &theTokenDesc,
  383.                 &resultDesc, &dataObject, &dataPropParam, kEndOfList);
  384.     
  385.     err = AEGetParamPtr(theEvent, keyAEObjectClass, typeType, &theType,
  386.                         (Ptr)&theClass, sizeof(DescType), &theSize);
  387.     if (!err)
  388.         err = AEGetParamDesc(theEvent, keyAEInsertHere, typeInsertionLoc, &insLocParam);
  389.     if (err)
  390.     {
  391.         TObjModelToken    *aApplicationToken = NULL;
  392.         
  393.         position = kAEEnd;
  394.         err = MakeAppToken(&aApplicationToken);
  395.         if (!err)
  396.         {
  397.             theToken = aApplicationToken;
  398.             DescFromObjModelToken(theToken, &theTokenDesc);
  399.         }
  400.     }
  401.     else
  402.     {
  403.         // coerce the insertion loc record to an AE record.
  404.         err = AECoerceDesc(&insLocParam, typeAERecord, &insLocRec);
  405.         if (!err)
  406.             err = AEGetKeyPtr(&insLocRec, keyAEPosition, typeEnumeration, &theType, 
  407.                                 (Ptr)&position, sizeof(DescType), &theSize);
  408.         if (!err)    //    Get the object reference
  409.             err = AEGetKeyDesc(&insLocRec, keyAEObject, 
  410.                                 typeWildCard, &insLocObject);
  411.     
  412.         if (!err)
  413.         {
  414.             err = AEResolve(&insLocObject, kAEIDoMinimum, &theTokenDesc);
  415.             
  416.             if (!err)
  417.                 theToken = ObjModelTokenFromDesc(&theTokenDesc);
  418.         }
  419.     }
  420.  
  421.     if (theToken)
  422.     {
  423.         TScriptableObject     *theNewObj = NULL;
  424.         TObjModelToken        *theNewToken = NULL;
  425.         TScriptableObject    *containerObj = NULL;
  426.         AERecord            *dataPropPtr = NULL;
  427.  
  428.         err = theToken->GetTokenObj()->ResolveContainer(&containerObj);
  429.  
  430.         if (position == kAEReplace && 
  431.              (theToken->GetTokenClass() == cApplication
  432.               || theToken->GetTokenClass() == cDocument))
  433.             err = errAEEventNotHandled;
  434.         else
  435.         {
  436.             err = AEGetParamDesc(theEvent, keyAEData, typeWildCard, &dataObject);
  437.             err = AEGetParamDesc(theEvent, keyAEPropData, typeAERecord, 
  438.                                     &dataPropParam);
  439.             if (!err)
  440.                 dataPropPtr = &dataPropParam;
  441.             // ignore errors if above calls fail
  442.             err = theToken->GetTokenObj()->CreateNewElement(theClass, position, 
  443.                                             &dataObject, dataPropPtr,
  444.                                             containerObj, &theNewObj);
  445.             if (!err)
  446.                 theNewToken = MakeNewToken(theClass, theNewObj);
  447.                 
  448.             if (!err && theNewToken)
  449.                 theNewToken->GetTokenObj()->GetObjectSpecifier(&resultDesc);
  450.             if (theNewToken)
  451.                 delete theNewToken;
  452.         }
  453.     }
  454.     
  455.     if (!err && (resultDesc.descriptorType != typeNull) 
  456.         && (theReply->descriptorType != typeNull))
  457.         err = AEPutParamDesc(theReply, keyDirectObject, &resultDesc);
  458.     
  459.     AEDisposeToken(&theTokenDesc); // DO NOT CALL until done with 'theToken'
  460.     DisposeAEDescs(&insLocParam, &insLocRec, &insLocObject,
  461.                     &resultDesc, &dataObject, &dataPropParam, kEndOfList);
  462.     return err;
  463. }
  464.  
  465. OSErr TObjModelToken::AEDeleteElem        (AppleEvent *theEvent, 
  466.                                         AppleEvent *theReply)
  467. {
  468.     OSErr         err = fTheObject->DeleteObject();
  469.     
  470.     return err;
  471. }
  472.  
  473. OSErr TObjModelToken::AECloseObject       (AppleEvent *theEvent, 
  474.                                         AppleEvent *theReply)
  475. {
  476.     return fTheObject->CloseObject();
  477. }
  478.  
  479. OSErr TObjModelToken::AEGetObjectData   (AppleEvent *theEvent, 
  480.                                         AppleEvent *theReply)
  481. {
  482.     OSErr         err = errAEEventNotHandled;
  483.     AEDesc        resultDesc;
  484.  
  485.     resultDesc.dataHandle = NULL;
  486.  
  487.     if (fIsProperty)
  488.     {
  489.         DescType        wantType, actualType;
  490.         Size            actualSize;
  491.         
  492.         err = AEGetParamPtr(theEvent, keyAERequestedType, typeType, &actualType,
  493.                             (Ptr)&wantType, sizeof(DescType), &actualSize);
  494.         if (err)
  495.             wantType = typeWildCard;
  496.         
  497.         err = fTheObject->GetProperty(fPropertyID, wantType, &resultDesc);
  498.     }
  499.     else
  500.     {
  501.         err = fTheObject->GetData(&resultDesc);
  502.         if (err == errAEEventNotHandled)
  503.             err = AEGetParamDesc(theEvent, keyDirectObject, 
  504.                                     typeObjectSpecifier, &resultDesc);
  505.     }
  506.     
  507.     if (!err && theReply->descriptorType != typeNull)
  508.         err = AEPutParamDesc(theReply, keyDirectObject, &resultDesc);
  509.     
  510.     AEDisposeDesc(&resultDesc);
  511.     
  512.     return err;
  513. }
  514.  
  515. OSErr TObjModelToken::AEOpenObject      (AppleEvent *theEvent, 
  516.                                         AppleEvent *theReply)
  517. {
  518.     return fTheObject->OpenObject();
  519. }
  520.  
  521. OSErr TObjModelToken::AESetObjectData   (AppleEvent *theEvent, 
  522.                                         AppleEvent *theReply)
  523. {
  524.     OSErr     err = errAEEventNotHandled;
  525.     AEDesc    dataDesc;
  526.  
  527.     dataDesc.dataHandle = NULL;
  528.     
  529.     err = AEGetParamDesc(theEvent, keyAEData, typeWildCard, &dataDesc);
  530.     
  531.     if (fIsProperty)
  532.         err = fTheObject->SetProperty(fPropertyID, &dataDesc);
  533.     else
  534.         err = fTheObject->SetData(&dataDesc);
  535.         
  536.     AEDisposeDesc(&dataDesc);
  537.     
  538.     return err;
  539. }
  540.  
  541.  
  542. // -------------------------------------------------------
  543.  
  544.  
  545.  
  546. #pragma segment Main
  547.     
  548. // object accessors 
  549.  
  550.  
  551. OSErr MakeAppToken(TObjModelToken** theApplicationToken)
  552. {
  553.     OSErr               err = errAEEventNotHandled;
  554.  
  555.     *theApplicationToken = new TObjModelToken(cApplication, gSimpliFace);
  556.         
  557.     if (theApplicationToken)
  558.         err = 0;
  559.     else
  560.         err = -108; // out of memory
  561.  
  562.     return err;
  563. }
  564.  
  565.  
  566. pascal OSErr PropertyFromNullAccessor   (DescType desiredClass,
  567.                                                 AEDesc *containerToken,
  568.                                                 DescType containerClass,
  569.                                                 DescType keyForm,
  570.                                                 AEDesc *keyData,
  571.                                                 AEDesc *theToken,
  572.                                                 long theRefCon)
  573. {
  574.     OSErr               err = errAEEventNotHandled;
  575.     objModelTokenPtr     theResolvedToken = NULL;
  576.     TObjModelToken        *aApplicationToken = NULL;
  577.  
  578.     if ((desiredClass != cProperty) || (containerClass != typeNull))
  579.         return(errAEWrongDataType);
  580.     
  581.     // we assume property being requested is an application property, 
  582.     // and create a temporary application token
  583.     err = MakeAppToken(&aApplicationToken);
  584.     if (!err)
  585.     {
  586.         err = DescFromObjModelToken((const objModelTokenPtr)aApplicationToken, theToken);
  587.     
  588.         if (!err && theToken)
  589.         {    // ask the temporary application token to resolve the property
  590.             // (this step creates a new token)
  591.             err = aApplicationToken->ResolveProperty(desiredClass, keyForm, keyData, &theResolvedToken);
  592.             if (!err && theResolvedToken)
  593.             {
  594.                 err = DescFromObjModelToken((const objModelTokenPtr)theResolvedToken, theToken);
  595.             }
  596.         }
  597.         
  598.         if (aApplicationToken)
  599.             delete aApplicationToken;    // dispose of the temporary application token
  600.     }
  601.     return err;
  602. }
  603.                                                 
  604.  
  605. pascal OSErr AppTokenFromNullAccessor  (DescType desiredClass,
  606.                                         AEDesc *containerToken,
  607.                                         DescType containerClass,
  608.                                         DescType keyForm,
  609.                                         AEDesc *keyData,
  610.                                         AEDesc *theToken,
  611.                                         long theRefCon)
  612. {
  613.     OSErr               err = errAEEventNotHandled;
  614.     TObjModelToken    *aApplicationToken = NULL;
  615.     
  616.     if ((desiredClass != cApplication) || (containerClass != typeNull))
  617.         return(errAEWrongDataType);
  618.     
  619.     err = MakeAppToken(&aApplicationToken);
  620.  
  621.     if (!err)
  622.         err = DescFromObjModelToken((const objModelTokenPtr)aApplicationToken, 
  623.                                     theToken);
  624.      
  625.     return(err);
  626. }
  627.                                                 
  628.  
  629. pascal OSErr StdObjectFromNullAccessor   (DescType desiredClass,
  630.                                             AEDesc *containerToken,
  631.                                             DescType containerClass,
  632.                                             DescType keyForm,
  633.                                             AEDesc *keyData,
  634.                                             AEDesc *theToken,
  635.                                             long theRefCon)
  636. {
  637.     OSErr               err = errAEEventNotHandled;
  638.     TObjModelToken    *aApplicationToken = NULL;
  639.     objModelTokenPtr     theResolvedToken = NULL;
  640.     
  641.     if (containerClass != typeNull)
  642.         return(errAEWrongDataType);
  643.     
  644.     err = MakeAppToken(&aApplicationToken);
  645.     
  646.     if (!err)
  647.     {
  648.         err = aApplicationToken->ResolveElement(desiredClass, keyForm, 
  649.                                                 keyData, &theResolvedToken);
  650.         if (!err && theResolvedToken)
  651.         {
  652.             err = DescFromObjModelToken((const objModelTokenPtr)theResolvedToken, 
  653.                                         theToken);
  654.         }
  655.         delete aApplicationToken;
  656.     }
  657.  
  658.     return(err);
  659. }
  660.                                                 
  661.  
  662.                                                 
  663.  
  664. pascal OSErr StdObjectAccessor (DescType desiredClass,
  665.                                         AEDesc *containerToken,
  666.                                         DescType containerClass,
  667.                                         DescType keyForm,
  668.                                         AEDesc *keyData,
  669.                                         AEDesc *theToken,
  670.                                         long theRefCon)
  671. {
  672.     OSErr err = errAEEventNotHandled;
  673.     objModelTokenPtr theContToken = ObjModelTokenFromDesc(containerToken);
  674.     objModelTokenPtr theResolvedToken = nil;
  675.     
  676.     if (theToken)
  677.     {
  678.         err = theContToken->ResolveElement(desiredClass, keyForm, keyData, &theResolvedToken);
  679.         if ((err == 0) && theResolvedToken)
  680.         {
  681.             err = DescFromObjModelToken((const objModelTokenPtr)theResolvedToken, theToken);
  682.         }
  683.             
  684.     }
  685.     
  686.     return err;
  687. }
  688.                                         
  689.                                     
  690. pascal OSErr StdPropertyAccessor(DescType desiredClass,
  691.                                         AEDesc *containerToken,
  692.                                         DescType containerClass,
  693.                                         DescType keyForm,
  694.                                         AEDesc *keyData,
  695.                                         AEDesc *theToken,
  696.                                         long theRefCon)
  697. {
  698.     OSErr err = errAEEventNotHandled;
  699.     objModelTokenPtr theContToken = ObjModelTokenFromDesc(containerToken);
  700.     objModelTokenPtr theResolvedToken = nil;
  701.     
  702.     if (theContToken && theToken)
  703.     {
  704.         err = theContToken->ResolveProperty(desiredClass, keyForm, keyData, &theResolvedToken);
  705.         if ((err == 0) && theResolvedToken)
  706.         {
  707.             err = DescFromObjModelToken((const objModelTokenPtr)theResolvedToken, theToken);
  708.         }
  709.             
  710.     }
  711.     
  712.     return err;
  713. }
  714.                                         
  715.  
  716. // object support callbacks
  717.  
  718. pascal OSErr StdCountProc        (DescType desiredClass,
  719.                                         DescType containerClass,
  720.                                         AEDesc *containerToken,
  721.                                         long *result)
  722. {
  723.     OSErr                 err = errAEEventNotHandled;
  724.     objModelTokenPtr     theToken = ObjModelTokenFromDesc(containerToken);
  725.  
  726.     if (theToken)
  727.         err = theToken->GetTokenObj()->CountElements(desiredClass, result);
  728.     
  729.     return err;
  730. }
  731.                                         
  732.                                     
  733. pascal OSErr StdCompareProc    (DescType comparisonOperator,
  734.                                         AEDesc object,
  735.                                         DescType objOrDescToCompare,
  736.                                         Boolean& result)
  737. {
  738.     OSErr err = errAEEventNotHandled;
  739.     
  740.     
  741.     return err;
  742. }
  743.  
  744.                                             
  745. pascal OSErr StdDisposeToken   (AEDesc *unneededToken)
  746. {
  747.     OSErr err =    errAEEventNotHandled;
  748.  
  749.     if (unneededToken)
  750.     {
  751.         objModelTokenPtr theToken = ObjModelTokenFromDesc(unneededToken);
  752.         if (theToken)
  753.         {
  754.             delete theToken;
  755.             err = AEDisposeDesc(unneededToken);
  756.             unneededToken->dataHandle = NULL; // in case OSL deletes us twice
  757.         }
  758.     }
  759.     return err;
  760. }
  761.  
  762.  
  763.  
  764. // -------setup
  765.  
  766.  
  767.  
  768. OSErr InstallAccessors(void);
  769.  
  770. OSErr DeInstallAccessors(void);
  771.  
  772.  
  773. // #pragma segment ObjectInit
  774.  
  775. // set up object model handlers
  776. OSErr SFinitAEobjects(void)
  777. {
  778.     OSErr err = 0;
  779.     
  780.     err = InstallAccessors();
  781.     
  782.     return err;
  783. }
  784.  
  785. // detach object model handlers & shut down
  786. OSErr SFendAEobjects(void)
  787. {
  788.     OSErr err = 0;
  789.     
  790.     err = DeInstallAccessors();
  791.     
  792.     return err;
  793. }
  794.  
  795.  
  796. // installation
  797.  
  798. OSErr InstallAccessors(void)
  799. {
  800.     OSErr err = 0;
  801.     
  802.     if (!err) err = AEInstallObjectAccessor(cApplication, typeNull, (accessorProcPtr)&AppTokenFromNullAccessor, (long)cApplication, false);
  803.     if (!err) err = AEInstallObjectAccessor(typeWildCard, typeNull, (accessorProcPtr)&StdObjectFromNullAccessor, 0, false);
  804.     if (!err) err = AEInstallObjectAccessor(typeWildCard, typeObjModelToken, (accessorProcPtr)&StdObjectAccessor, 0, false);
  805.  
  806.     if (!err) err = AEInstallObjectAccessor(cProperty, typeNull, (accessorProcPtr)&PropertyFromNullAccessor, (long)cProperty, false);
  807.     if (!err) err = AEInstallObjectAccessor(cProperty, typeObjModelToken, (accessorProcPtr)&StdPropertyAccessor, (long)cProperty, false);
  808.     
  809.     if (!err) err = AESetObjectCallbacks(   (compareProcPtr)&StdCompareProc, 
  810.                                             (countProcPtr)&StdCountProc, 
  811.                                             (disposeTokenProcPtr)&StdDisposeToken,
  812.                                             nil, nil, nil, nil);
  813.     
  814.     return err;
  815. }
  816.  
  817. OSErr DeInstallAccessors(void)
  818. {
  819.     OSErr err = 0;
  820.  
  821.     
  822.     return err;
  823. }
  824.  
  825.  
  826.